home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Dev / cross / Annotate.lha / annotate / robotki1.asm < prev    next >
Encoding:
Assembly Source File  |  2003-12-23  |  30.1 KB  |  1,954 lines
  1. ;
  2. ;    Disassembled by:
  3. ;        DASMx object code disassembler
  4. ;        (c) Copyright 1996-1999   Conquest Consultants
  5. ;        Version 1.30 (Oct  6 1999)
  6. ;
  7. ;    File:        robotki!.bin
  8. ;
  9. ;    Size:        4096 bytes
  10. ;    Checksum:    00F5
  11. ;    CRC-32:        4671B7F7
  12. ;
  13. ;    Date:        Wed Dec 03 12:39:48 2003
  14. ;
  15. ;    CPU:        Signetics 2650 (2650 family)
  16. ;
  17. ;
  18. ;
  19.     org    00000H
  20. ;
  21.     eorz    r0
  22.     bctr,un    L0004
  23. ;
  24.     db    017H
  25. ;
  26. L0004:
  27.     lpsu
  28.     lpsl
  29.     ppsu    020H
  30.     ppsl    002H
  31.     strz    r1
  32.     stra,r0    X18FA
  33.     stra,r1    X18FC
  34. L0011:
  35.     tpsu    080H
  36.     bcfr,eq    L0011
  37. L0015:
  38.     tpsu    080H
  39.     bctr,eq    L0015
  40. L0019:
  41.     stra,r0    X17FF,r1
  42.     stra,r0    X19FF,r1
  43.     stra,r0    X18FF,r1
  44.     bdrr,r1    L0019
  45.     bsta,un    L0A11
  46.     loda,r0    X0DFB
  47.     stra,r0    X1AF5
  48.     lodi,r0    010H
  49.     lodi,r1    004H
  50. L0031:
  51.     stra,r0    X180A,r1
  52.     bdrr,r1    L0031
  53.     eorz    r0
  54.     bcta,un    L00B1
  55. ;
  56. L003A:
  57.     bsta,un    L0A95
  58.     loda,r0    X1908
  59.     strz    r1
  60.     andi,r0    001H
  61.     bcfr,eq    L0052
  62.     lodz    r1
  63.     andi,r0    002H
  64.     bcfa,eq    L00AA
  65.     andi,r1    004H
  66.     bcfa,eq    L00BD
  67. X0050:
  68.     bctr,un    L0072
  69. ;
  70. L0052:
  71.     bsta,un    L0A11
  72.     eorz    r0
  73.     stra,r0    X1AF7
  74.     stra,r0    X1AF6
  75.     lodi,r0    001H
  76.     strr,r0    *X0073
  77. L0060:
  78.     tpsu    080H
  79.     bcfr,eq    L0060
  80.     lodi,r0    0FFH
  81.     stra,r0    X1AFA
  82.     stra,r0    X1AFB
  83.     bsta,un    L00E7
  84.     bsta,un    L0159
  85. L0072:
  86.     loda,r0    X18FA
  87.     bctr,eq    L0093
  88.     bctr,lt    L007C
  89.     bcta,un    L0199
  90. ;
  91. L007C:
  92.     loda,r0    X18FC
  93.     comi,r0    006H
  94.     bctr,lt    L0096
  95.     addi,r0    0FDH
  96.     strr,r0    *X007D
  97.     lodi,r1    006H
  98.     lodi,r0    0FFH
  99. L008B:
  100.     stra,r0    X18F1,r1
  101.     stra,r0    X18E3,r1
  102.     bdrr,r1    L008B
  103. L0093:
  104.     bcta,un    L0999
  105. ;
  106. L0096:
  107.     lodi,r0    001H
  108.     strr,r0    *X0073
  109.     bsta,un    L0A43
  110.     bsta,un    L00E7
  111.     eorz    r0
  112.     strz    r3
  113.     stra,r0    X18E0
  114.     bsta,un    L0186
  115.     bctr,un    L0093
  116. ;
  117. L00AA:
  118.     loda,r0    X18FB
  119.     addi,r0    001H
  120.     andi,r0    003H
  121. L00B1:
  122.     strr,r0    *X00AB
  123.     addi,r0    001H
  124.     iori,r0    090H
  125.     stra,r0    X1815
  126.     eorz    r0
  127.     bctr,un    L00CC
  128. ;
  129. L00BD:
  130.     loda,r0    X1AF4
  131.     addi,r0    001H
  132.     lodr,r1    *X00AB
  133.     bctr,eq    L00CA
  134.     andi,r0    007H
  135.     bctr,un    L00CC
  136. ;
  137. L00CA:
  138.     andi,r0    003H
  139. L00CC:
  140.     strr,r0    *X00BE
  141.     addi,r0    001H
  142.     iori,r0    050H
  143.     stra,r0    X181F
  144.     bsta,un    L0A43
  145.     eorz    r0
  146.     stra,r0    X18FA
  147.     bsta,un    L0FE7
  148.     lodi,r0    0EEH
  149.     stra,r0    X18FC
  150.     bcta,un    L0060
  151. ;
  152. L00E7:
  153.     loda,r1    X18F9
  154.     lodr,r0    *X00BE
  155.     andi,r0    003H
  156.     stra,r0    X18D0
  157.     lodi,r2    000H
  158. L00F3:
  159.     loda,r0    X0050,r1,+
  160.     strz    r3
  161.     bctr,lt    L0117
  162.     addi,r3    021H
  163.     comi,r3    0CEH
  164.     bctr,gt    L00F3
  165.     loda,r0    X1800,r3
  166.     bcfr,eq    L00F3
  167.     lodi,r0    0BCH
  168.     stra,r0    X1800,r3
  169.     lodz    r3
  170.     stra,r0    X1AE1,r2
  171.     loda,r0    X0FDF,r2
  172.     eori,r0    0FFH
  173.     anda,r0    X18D8
  174.     bctr,un    L013A
  175. ;
  176. L0117:
  177.     andi,r3    07FH
  178.     addi,r3    010H
  179.     lodz    r3
  180.     comi,r0    040H
  181.     bctr,gt    L0126
  182.     andi,r0    00FH
  183.     comi,r0    004H
  184.     bctr,lt    L00F3
  185. L0126:
  186.     loda,r0    X1A00,r3
  187.     bcfr,eq    L00F3
  188.     lodi,r0    0BCH
  189.     stra,r0    X1A00,r3
  190.     lodz    r3
  191.     stra,r0    X1AE1,r2
  192.     loda,r0    X0FDF,r2
  193.     iora,r0    X18D8
  194. L013A:
  195.     strr,r0    *X0138
  196.     addi,r2    001H
  197.     comi,r2    008H
  198.     bcfa,eq    L00F3
  199.     loda,r0    X18D0
  200.     bctr,eq    L016F
  201.     addi,r0    0FFH
  202.     stra,r0    X18D0
  203.     lodr,r0    *X0152
  204.     addi,r0    014H
  205.     stra,r0    X18F9
  206.     lodi,r2    004H
  207.     bcta,un    L00F3
  208. ;
  209. L0159:
  210.     lodi,r0    0DCH
  211.     lodi,r1    00CH
  212.     stra,r1    X18FE
  213. L0160:
  214.     bdrr,r1    L0160
  215.     strz    r3
  216.     rrr,r3
  217.     andi,r3    07FH
  218.     stra,r3    X18FD
  219.     bdrr,r0    L0160
  220.     stra,r0    X18FE
  221.     retc,un
  222. ;
  223. L016F:
  224.     lodi,r1    008H
  225. L0171:
  226.     loda,r0    X0179,r1
  227.     stra,r0    X18EF,r1
  228.     bdrr,r1    L0171
  229. X0179:
  230.     retc,un
  231. ;
  232.     db    0FFH, 0FFH, 078H, 050H
  233.     db    080H, 035H, 0FFH, 0FFH
  234. ;
  235. L0182:
  236.     lodi,r0    070H
  237.     lodi,r3    017H
  238. L0186:
  239.     stra,r0    X18E1
  240.     stra,r3    X18E2
  241.     retc,un
  242. ;
  243. L018D:
  244.     loda,r0    X1900
  245.     iora,r0    X1901
  246.     iora,r0    X1902
  247.     andi,r0    00FH
  248.     retc,un
  249. ;
  250. L0199:
  251.     loda,r0    X18FC
  252.     comi,r0    0EEH
  253.     bctr,gt    L01AB
  254.     addi,r0    003H
  255.     strr,r0    *X019A
  256.     eorz    r0
  257.     stra,r0    X18E0
  258. L01A8:
  259.     bcta,un    L0999
  260. ;
  261. L01AB:
  262.     bstr,un    L018D
  263.     bctr,eq    L01B2
  264.     stra,r0    X18D5
  265. L01B2:
  266.     lodr,r0    *X01B0
  267.     bctr,eq    L01A8
  268.     lodr,r0    *X01A6
  269.     bctr,eq    L01C0
  270.     addi,r0    0FFH
  271.     strr,r0    *X01A6
  272.     bctr,un    L01D0
  273. ;
  274. L01C0:
  275.     lodi,r1    002H
  276. L01C2:
  277.     loda,r0    X18E0,r1
  278.     stra,r0    X18FC,r1
  279.     bdrr,r1    L01C2
  280.     stra,r1    X18E2
  281.     stra,r1    X18E1
  282. L01D0:
  283.     loda,r0    X1ADE
  284.     bcta,eq    L02A2
  285.     addi,r0    0FFH
  286.     strr,r0    *X01D1
  287.     bcta,eq    L0247
  288.     rrr,r0
  289.     rrr,r0
  290.     rrr,r0
  291.     rrr,r0
  292.     andi,r0    00FH
  293.     strz    r3
  294.     loda,r0    X021F,r3
  295.     stra,r0    X18FD
  296.     loda,r0    X020F,r3
  297.     stra,r0    X18FE
  298.     lodi,r0    004H
  299.     stra,r0    X18E0
  300.     loda,r0    X01FE,r3
  301.     bsta,un    L0FBC
  302.     bcta,un    L0999
  303. ;
  304. X01FE:
  305.     db    008H, 008H, 008H, 008H
  306.     db    008H, 008H, 010H, 010H
  307.     db    010H, 010H, 010H, 018H
  308.     db    018H, 018H, 018H, 018H
  309.     db    018H
  310. X020F:
  311.     db    000H, 012H, 013H, 014H
  312.     db    015H, 016H, 017H, 017H
  313.     db    017H, 017H, 017H, 017H
  314.     db    017H, 017H, 017H, 017H
  315. X021F:
  316.     db    000H, 001H, 002H, 003H
  317.     db    002H, 003H, 004H, 005H
  318.     db    002H, 003H, 004H, 001H
  319.     db    001H, 002H, 002H, 001H
  320.     db    001H
  321. ;
  322. L0230:
  323.     lodi,r0    005H
  324. L0232:
  325.     stra,r0    X1AFE
  326.     bsta,un    L0975
  327.     lodr,r0    *X0233
  328.     bdrr,r0    L0232
  329.     ppsu    040H
  330.     bstr,un    *X0241        ;INFO: indirect jump
  331.     bsta,un    L0159
  332.     cpsu    040H
  333.     bctr,un    L0257
  334. ;
  335. L0247:
  336.     loda,r0    X1AF6
  337.     addi,r0    001H
  338.     strr,r0    *X0248
  339.     strz    r1
  340.     eorz    r0
  341.     stra,r0    X1805,r1
  342.     comi,r1    004H
  343.     bctr,eq    L025E
  344. L0257:
  345.     lodi,r0    080H
  346.     stra,r0    X18FA
  347.     bctr,un    L027C
  348. ;
  349. L025E:
  350.     eorz    r0
  351.     strr,r0    *X025A
  352.     bsta,un    L0FE7
  353.     lodi,r1    000H
  354. L0266:
  355.     loda,r0    X180B,r1
  356.     andi,r0    03FH
  357.     strz    r3
  358.     loda,r0    X1800,r1
  359.     andi,r0    03FH
  360.     comz    r3
  361.     bctr,gt    L027F
  362.     bctr,lt    L027C
  363.     addi,r1    001H
  364.     comi,r1    004H
  365.     bcfr,eq    L0266
  366. L027C:
  367.     bcta,un    L0999
  368. ;
  369. L027F:
  370.     lodi,r1    004H
  371. L0281:
  372.     loda,r0    X17FF,r1
  373.     andi,r0    03FH
  374.     lodi,r2    00FH
  375.     stra,r2    X18FE
  376.     lodi,r3    07FH
  377. L028D:
  378.     bdrr,r2    L028D
  379.     stra,r3    X18D0
  380.     andi,r3    0AAH
  381.     stra,r3    X18FD
  382.     lodr,r3    *X0290
  383.     bdrr,r3    L028D
  384.     stra,r0    X180A,r1
  385.     bdrr,r1    L0281
  386.     bctr,un    L027C
  387. ;
  388. L02A2:
  389.     loda,r1    X18ED
  390.     andi,r1    003H
  391.     comi,r1    001H
  392.     bctr,eq    L02C5
  393.     loda,r0    X1AFB
  394.     andi,r0    002H
  395.     bcfr,eq    L02C5
  396. L02B2:
  397.     lodi,r1    0FFH
  398.     stra,r1    X1ADE
  399.     stra,r1    X18E5
  400.     lodi,r1    004H
  401.     lodi,r0    001H
  402. L02BE:
  403.     stra,r0    X1AD9,r1
  404.     bdrr,r1    L02BE
  405.     bctr,un    L02DF
  406. ;
  407. L02C5:
  408.     loda,r0    X1AFA
  409.     andi,r0    004H
  410.     bctr,eq    L02B2
  411.     lodr,r0    *X02AC
  412.     andi,r0    020H
  413.     bctr,eq    L02B2
  414.     loda,r0    X1AEF
  415.     comi,r0    009H
  416.     bcfr,eq    L02DF
  417.     lodr,r0    *X02AC
  418.     andi,r0    008H
  419.     bctr,eq    L02B2
  420. L02DF:
  421.     loda,r0    X18EC
  422.     bcta,eq    L0335
  423.     loda,r0    X18ED
  424.     andi,r0    003H
  425.     comi,r0    003H
  426.     bcfr,eq    L030E
  427.     lodr,r0    *X02E0
  428.     addi,r0    0FFH
  429.     strr,r0    *X02E0
  430.     bctr,eq    L030B
  431.     strz    r3
  432.     loda,r0    X0310,r3
  433.     bsta,un    L0FB4
  434.     loda,r0    X0312,r3
  435.     stra,r0    X18E1
  436.     loda,r0    X0314,r3
  437.     stra,r0    X18E2
  438.     bctr,un    L030E
  439. ;
  440. L030B:
  441.     bsta,un    L040C
  442. L030E:
  443.     bcta,un    L03D0
  444. ;
  445.     db    010H
  446. X0312:
  447.     db    008H, 074H
  448. X0314:
  449.     db    075H, 013H, 00DH
  450. ;
  451. L0317:
  452.     loda,r0    X18ED
  453.     andi,r0    003H
  454.     comi,r0    001H
  455.     bcfr,eq    L030E
  456.     loda,r0    X1AFB
  457.     andi,r0    004H
  458.     bcfr,eq    L030E
  459.     loda,r1    X1AD9
  460.     lodi,r0    0FFH
  461.     stra,r0    X1AE1,r1
  462.     stra,r0    X18F7
  463.     bcta,un    L036B
  464. ;
  465. L0335:
  466.     loda,r0    X1ADA
  467.     bctr,eq    L030E
  468.     loda,r0    X18E4
  469.     loda,r1    X18E5
  470.     bsta,un    L05D0
  471.     comi,r0    0FFH
  472.     bctr,eq    L0354
  473.     comi,r1    0FFH
  474.     bctr,eq    L0359
  475.     loda,r0    X1A00,r1
  476.     comi,r0    0BCH
  477.     bctr,eq    L0362
  478. L0352:
  479.     comi,r0    03FH
  480. L0354:
  481.     bctr,eq    L038C
  482.     bcta,un    L0317
  483. ;
  484. L0359:
  485.     loda,r0    X1800,r2
  486.     comi,r0    0BCH
  487.     bctr,eq    L0394
  488.     bctr,un    L0352
  489. ;
  490. L0362:
  491.     eorz    r0
  492.     stra,r0    X1A00,r1
  493.     lodz    r1
  494.     bstr,un    L039F
  495.     bcfr,eq    L0370
  496. L036B:
  497.     lodi,r0    0FFH
  498.     stra,r0    X1AE0,r1
  499. L0370:
  500.     loda,r0    X18D7
  501.     addi,r0    001H
  502.     loda,r1    X1AF4
  503.     andi,r1    003H
  504.     coma,r0    X03CC,r1
  505.     strr,r0    *X0371
  506.     bcfr,eq    L0385
  507.     lodi,r0    00CH
  508.     bctr,un    L0387
  509. ;
  510. L0385:
  511.     lodi,r0    002H
  512. L0387:
  513.     adda,r0    X1AF7
  514.     strr,r0    *X0388
  515. L038C:
  516.     lodi,r0    003H
  517.     stra,r0    X18EC
  518.     bcta,un    L03D0
  519. ;
  520. L0394:
  521.     eorz    r0
  522.     stra,r0    X1800,r2
  523.     lodz    r2
  524.     bstr,un    L03B5
  525.     bcfr,eq    L0370
  526.     bctr,un    L036B
  527. ;
  528. L039F:
  529.     lodi,r1    008H
  530. L03A1:
  531.     coma,r0    X1AE0,r1
  532.     bctr,eq    L03AA
  533. L03A6:
  534.     bdrr,r1    L03A1
  535.     bctr,un    L03BE
  536. ;
  537. L03AA:
  538.     strz    r3
  539.     loda,r0    X0FDE,r1
  540.     anda,r0    X18D8
  541.     bctr,eq    L03A6
  542.     bctr,un    L03CA
  543. ;
  544. L03B5:
  545.     lodi,r1    008H
  546. L03B7:
  547.     coma,r0    X1AE0,r1
  548.     bctr,eq    L03C1
  549. L03BC:
  550.     bdrr,r1    L03B7
  551. L03BE:
  552.     iori,r0    001H
  553.     retc,un
  554. ;
  555. L03C1:
  556.     strz    r3
  557.     loda,r0    X0FDE,r1
  558.     anda,r0    X18D8
  559.     bcfr,eq    L03BC
  560. L03CA:
  561.     eorz    r0
  562.     retc,un
  563. ;
  564. X03CC:
  565.     db    008H, 00CH, 010H, 014H
  566. ;
  567. L03D0:
  568.     loda,r0    X18EC
  569.     bcfa,eq    L043B
  570.     loda,r0    X1ADA
  571.     bcta,eq    L041A
  572.     addi,r0    0FFH
  573.     strr,r0    *X03D7
  574.     bctr,eq    L0416
  575.     loda,r1    X1AE9
  576.     loda,r0    X18E4
  577.     adda,r0    X04B0,r1
  578.     stra,r0    X18E4
  579.     loda,r0    X18E5
  580.     adda,r0    X04AE,r1
  581.     stra,r0    X18E5
  582.     comi,r0    0A6H
  583.     bctr,gt    L0416
  584.     lodi,r0    088H
  585.     bsta,un    L0FB4
  586.     lodi,r0    004H
  587.     stra,r0    X18E1
  588.     lodi,r0    017H
  589.     stra,r0    X18E2
  590.     bctr,un    L043B
  591. ;
  592. L040C:
  593.     lodi,r0    0FFH
  594.     stra,r0    X18E5
  595.     eorz    r0
  596.     stra,r0    X1ADA
  597.     retc,un
  598. ;
  599. L0416:
  600.     bstr,un    L040C
  601.     bctr,un    L043B
  602. ;
  603. L041A:
  604.     bsta,un    L018D
  605.     bctr,eq    L043B
  606.     loda,r0    X1AED
  607.     comi,r0    008H
  608.     bcfr,lt    L043B
  609.     lodi,r0    0FFH
  610.     strr,r0    *X0413
  611.     loda,r1    X1AED
  612.     stra,r1    X1AE9
  613.     loda,r0    X18F4
  614.     stra,r0    X18E4
  615.     loda,r0    X18F5
  616.     strr,r0    *X040F
  617. L043B:
  618.     loda,r0    X18FB
  619.     bcta,eq    L0672
  620.     loda,r0    X1ADB
  621.     bcta,eq    L0485
  622.     addi,r0    0FFH
  623.     strr,r0    *X0442
  624.     bcta,eq    L047E
  625.     loda,r0    X18ED
  626.     andi,r0    001H
  627.     comi,r0    001H
  628.     bcfr,eq    L047C
  629.     loda,r1    X1AEA
  630.     loda,r0    X18E6
  631.     adda,r0    X04B0,r1
  632.     strr,r0    *X045B
  633.     loda,r0    X18E7
  634.     adda,r0    X04AE,r1
  635.     strr,r0    *X0463
  636.     strz    r1
  637.     lodr,r0    *X045B
  638.     bsta,un    L05A0
  639.     bctr,eq    L047E
  640.     lodi,r0    001H
  641.     stra,r0    X18E1
  642.     lodi,r0    00DH
  643.     stra,r0    X18E2
  644. L047C:
  645.     bctr,un    L04AC
  646. ;
  647. L047E:
  648.     lodi,r0    0FFH
  649.     strr,r0    *X0463
  650.     eorz    r0
  651.     bctr,un    L04A9
  652. ;
  653. L0485:
  654.     loda,r0    X18D6
  655.     loda,r1    X1AF4
  656.     tmi,r1    004H
  657.     bcfr,eq    L0493
  658.     andi,r0    070H
  659.     bctr,un    L0495
  660. ;
  661. L0493:
  662.     andi,r0    0F0H
  663. L0495:
  664.     comi,r0    030H
  665.     bcfr,eq    L04B9
  666.     bsta,un    L05FC
  667.     bctr,eq    L04B9
  668.     stra,r1    X18E6
  669.     stra,r2    X18E7
  670.     stra,r0    X1AEA
  671.     lodi,r0    07FH
  672. L04A9:
  673.     stra,r0    X1ADB
  674. L04AC:
  675.     bctr,un    L04B9
  676. ;
  677. X04AE:
  678.     db    000H, 001H
  679. X04B0:
  680.     db    001H, 001H, 000H, 0FFH
  681.     db    0FFH, 0FFH, 000H, 001H
  682.     db    001H
  683. ;
  684. L04B9:
  685.     loda,r0    X18FB
  686.     comi,r0    002H
  687.     bcta,lt    L0672
  688.     loda,r0    X1ADC
  689.     bcta,eq    L0505
  690.     addi,r0    0FFH
  691.     strr,r0    *X04C2
  692.     bcta,eq    L04FD
  693.     loda,r0    X18ED
  694.     andi,r0    003H
  695.     comi,r0    001H
  696.     bcfr,eq    L04FB
  697.     loda,r1    X1AEB
  698.     lodr,r0    *X04EA
  699.     adda,r0    X04B0,r1
  700.     strr,r0    *X04EA
  701.     lodr,r0    *X0500
  702.     adda,r0    X04AE,r1
  703.     strr,r0    *X0500
  704.     strz    r1
  705.     loda,r0    X18E8
  706.     bsta,un    L05A0
  707.     bctr,eq    L04FD
  708.     lodi,r0    001H
  709.     stra,r0    X18E1
  710.     lodi,r0    00DH
  711.     stra,r0    X18E2
  712. L04FB:
  713.     bctr,un    L052B
  714. ;
  715. L04FD:
  716.     lodi,r0    0FFH
  717.     stra,r0    X18E9
  718.     eorz    r0
  719.     bctr,un    L0528
  720. ;
  721. L0505:
  722.     loda,r0    X18D6
  723.     loda,r1    X1AF4
  724.     tmi,r1    004H
  725.     bcfr,eq    L0513
  726.     andi,r0    070H
  727.     bctr,un    L0515
  728. ;
  729. L0513:
  730.     andi,r0    0F0H
  731. L0515:
  732.     comi,r0    000H
  733.     bcfr,eq    L052B
  734.     bsta,un    L05FC
  735.     bctr,eq    L052B
  736.     strr,r1    *X04EA
  737.     stra,r2    X18E9
  738.     stra,r0    X1AEB
  739.     lodi,r0    07FH
  740. L0528:
  741.     stra,r0    X1ADC
  742. L052B:
  743.     loda,r0    X18FB
  744.     comi,r0    003H
  745.     bcta,lt    L0672
  746.     loda,r0    X1ADD
  747.     bcta,eq    L0577
  748.     addi,r0    0FFH
  749.     strr,r0    *X0534
  750.     bctr,eq    L056F
  751.     loda,r0    X18ED
  752.     andi,r0    003H
  753.     comi,r0    002H
  754.     bcfr,eq    L056C
  755.     loda,r1    X1AEC
  756.     lodr,r0    *X055B
  757.     adda,r0    X04B0,r1
  758.     strr,r0    *X055B
  759.     lodr,r0    *X0572
  760.     adda,r0    X04AE,r1
  761.     strr,r0    *X0572
  762.     strz    r1
  763.     loda,r0    X18EA
  764.     bsta,un    L05A0
  765.     bctr,eq    L056F
  766.     lodi,r0    001H
  767.     stra,r0    X18E1
  768.     lodi,r0    00DH
  769.     stra,r0    X18E2
  770. L056C:
  771.     bcta,un    L0672
  772. ;
  773. L056F:
  774.     lodi,r0    0FFH
  775.     stra,r0    X18EB
  776.     eorz    r0
  777.     bctr,un    L059B
  778. ;
  779. L0577:
  780.     loda,r0    X18D6
  781.     loda,r1    X1AF4
  782.     tmi,r1    004H
  783.     bcfr,eq    L0585
  784.     andi,r0    070H
  785.     bctr,un    L0587
  786. ;
  787. L0585:
  788.     andi,r0    0F0H
  789. L0587:
  790.     comi,r0    050H
  791.     bcfr,eq    L056C
  792.     bsta,un    L05FC
  793.     bctr,eq    L056C
  794.     stra,r1    X18EA
  795.     stra,r2    X18EB
  796.     stra,r0    X1AEC
  797.     lodi,r0    0FFH
  798. L059B:
  799.     stra,r0    X1ADD
  800.     bctr,un    L056C
  801. ;
  802. L05A0:
  803.     bsta,un    L05D0
  804.     comi,r0    0FFH
  805.     bctr,eq    L05B7
  806.     comi,r1    0FFH
  807.     bctr,eq    L05B1
  808.     loda,r0    X1A00,r1
  809.     comi,r0    03FH
  810.     retc,un
  811. ;
  812. L05B1:
  813.     loda,r0    X1800,r2
  814.     comi,r0    03FH
  815.     retc,un
  816. ;
  817. L05B7:
  818.     eorz    r0
  819.     retc,un
  820. ;
  821. L05B9:
  822.     lodz    r1
  823.     rrl,r0
  824.     rrl,r0
  825.     rrl,r0
  826.     andi,r0    078H
  827.     subi,r0    0D5H
  828.     strz    r3
  829.     lodz    r1
  830.     andi,r0    0F0H
  831.     rrr,r0
  832.     addz    r2
  833.     eori,r0    0FFH
  834.     addi,r0    002H
  835.     strz    r2
  836.     lodz    r3
  837.     strz    r1
  838.     lodz    r2
  839.     retc,un
  840. ;
  841. L05D0:
  842.     comi,r1    0B7H
  843.     bcta,gt    L05F9
  844.     addi,r1    0D7H
  845.     rrr,r1
  846.     rrr,r1
  847.     rrr,r1
  848.     andi,r1    00FH
  849.     eori,r0    0FFH
  850.     adda,r0    X18FC
  851.     comi,r0    062H
  852.     bctr,gt    L05EF
  853.     addi,r0    005H
  854.     rrl,r0
  855.     andi,r0    0F0H
  856.     iorz    r1
  857.     strz    r2
  858.     lodi,r1    0FFH
  859.     retc,un
  860. ;
  861. L05EF:
  862.     addi,r0    09EH
  863.     rrl,r0
  864.     andi,r0    0F0H
  865.     iorz    r1
  866.     strz    r1
  867.     lodi,r2    0FFH
  868.     retc,un
  869. ;
  870. L05F9:
  871.     lodi,r0    0FFH
  872.     retc,un
  873. ;
  874. L05FC:
  875.     loda,r2    X18ED
  876.     addz    r2
  877.     andi,r0    007H
  878.     strz    r2
  879.     stra,r2    X18D0
  880.     loda,r0    X18F4
  881.     stra,r0    X18D1
  882.     loda,r0    X18F5
  883.     stra,r0    X18D2
  884. L0612:
  885.     loda,r2    X18D0
  886.     loda,r0    X18D1
  887.     adda,r0    X0657,r2
  888.     stra,r0    X18D1
  889.     lodr,r0    *X0610
  890.     adda,r0    X0655,r2
  891.     strr,r0    *X0610
  892.     loda,r0    X18D1
  893.     lodr,r1    *X0610
  894.     bsta,un    L05D0
  895.     comi,r1    0FFH
  896.     bctr,eq    L064A
  897.     loda,r0    X1A00,r1
  898.     bctr,eq    L063C
  899.     comi,r0    0BCH
  900.     bctr,eq    L063E
  901.     bctr,un    L0653
  902. L063C:
  903.     bctr,un    L0612
  904. ;
  905. L063E:
  906.     loda,r2    X18D0
  907.     loda,r0    X0660,r2
  908.     loda,r1    X18D1
  909.     lodr,r2    *X0610
  910.     retc,un
  911. ;
  912. L064A:
  913.     loda,r0    X1800,r2
  914.     bctr,eq    L063C
  915.     comi,r0    0BCH
  916.     bctr,eq    L063E
  917. L0653:
  918.     eorz    r0
  919.     retc,un
  920. ;
  921. X0655:
  922.     db    000H, 008H
  923. X0657:
  924.     db    008H, 008H, 000H, 0F8H
  925.     db    0F8H, 0F8H, 000H, 008H
  926.     db    000H
  927. X0660:
  928.     db    004H, 005H, 006H, 007H
  929.     db    000H, 001H, 002H, 003H
  930.     db    008H
  931. X0669:
  932.     db    0C8H, 0E0H, 0E0H, 0E0H
  933.     db    0D0H, 0D8H, 0D8H, 0D8H
  934.     db    020H
  935. ;
  936. L0672:
  937.     loda,r0    X1ADE
  938.     bcfa,eq    L0730
  939.     loda,r0    X1ADA
  940.     comi,r0    0F7H
  941.     bctr,lt    L068B
  942.     loda,r1    X1AE9
  943.     loda,r0    X0669,r1
  944.     bsta,un    L0FBC
  945.     bcta,un    L0730
  946. ;
  947. L068B:
  948.     loda,r0    X1AFC
  949.     lodi,r2    001H
  950.     comi,r0    030H
  951.     bctr,lt    L069C
  952.     lodi,r2    002H
  953.     comi,r0    0A0H
  954.     bctr,gt    L069C
  955.     lodi,r2    000H
  956. L069C:
  957.     loda,r0    X1AFD
  958.     comi,r0    030H
  959.     bcta,lt    L0716
  960.     comi,r0    0A0H
  961.     bcta,gt    L0718
  962. L06A9:
  963.     loda,r0    X071D,r2
  964.     stra,r0    X1AED
  965.     comi,r0    008H
  966.     bcfr,eq    L06BB
  967.     lodi,r0    020H
  968.     bsta,un    L0FBC
  969.     bcta,un    L0713
  970. ;
  971. L06BB:
  972.     loda,r0    X18ED
  973.     andi,r0    007H
  974.     bcfr,eq    L06E8
  975.     loda,r0    X18ED
  976.     rrr,r0
  977.     rrr,r0
  978.     rrr,r0
  979.     andi,r0    007H
  980.     strz    r2
  981.     comi,r2    005H
  982.     bctr,eq    L06D3
  983.     comi,r2    002H
  984.     bcfr,eq    L06DA
  985. L06D3:
  986.     lodi,r0    07EH
  987.     lodi,r3    01FH
  988.     bsta,un    L0186
  989. L06DA:
  990.     lodz    r2
  991.     loda,r1    X1AED
  992.     rrl,r1
  993.     rrl,r1
  994.     rrl,r1
  995.     iorz    r1
  996.     loda,r0    X0E00,r0
  997.     bsta,un    L0FBC
  998. L06E8:
  999.     loda,r0    X18D3
  1000.     addi,r0    001H
  1001.     comi,r0    007H
  1002.     strr,r0    *X06E9
  1003.     bcfr,eq    L0713
  1004.     eorz    r0
  1005.     strr,r0    *X06E9
  1006.     loda,r1    X1AED
  1007.     loda,r0    X18F4
  1008.     adda,r0    X04B0,r1
  1009.     adda,r0    X04B0,r1
  1010.     stra,r0    X18F4
  1011.     loda,r0    X18F5
  1012.     adda,r0    X04AE,r1
  1013.     stra,r0    X18F5
  1014.     comi,r0    0A7H
  1015.     bcta,gt    L0230
  1016. L0713:
  1017.     bcta,un    L0730
  1018. ;
  1019. L0716:
  1020.     addi,r2    004H
  1021. L0718:
  1022.     addi,r2    004H
  1023.     bcta,un    L06A9
  1024. ;
  1025. X071D:
  1026.     db    008H, 000H, 004H, 008H
  1027.     db    002H, 001H, 003H, 008H
  1028.     db    006H, 007H, 005H, 008H
  1029.     db    008H, 008H, 008H, 008H
  1030.     db    008H, 008H, 008H
  1031. ;
  1032. L0730:
  1033.     loda,r0    X1AEF
  1034.     comi,r0    009H
  1035.     bctr,eq    L0757
  1036.     loda,r1    X18ED
  1037.     bcfr,eq    L0754
  1038.     addi,r0    001H
  1039.     stra,r0    X1AEF
  1040.     comi,r0    005H
  1041.     bctr,lt    L0754
  1042.     subi,r0    005H
  1043.     loda,r0    X07BE,r0
  1044.     bsta,un    L0FB8
  1045.     lodi,r0    00AH
  1046.     lodi,r3    00DH
  1047.     bsta,un    L0186
  1048. L0754:
  1049.     bcta,un    L07D0
  1050. ;
  1051. L0757:
  1052.     loda,r0    X18F2
  1053.     lodr,r1    *X078F
  1054.     andi,r1    040H
  1055.     bctr,eq    L0764
  1056.     addi,r0    001H
  1057.     bctr,un    L0766
  1058. ;
  1059. L0764:
  1060.     addi,r0    0FFH
  1061. L0766:
  1062.     stra,r0    X18F2
  1063.     lodr,r0    *X078F
  1064.     andi,r0    003H
  1065.     bcfr,eq    L0754
  1066.     lodr,r0    *X078F
  1067.     strz    r1
  1068.     andi,r0    007H
  1069.     bcfr,eq    L078E
  1070.     andi,r1    038H
  1071.     rrr,r1
  1072.     rrr,r1
  1073.     rrr,r1
  1074.     loda,r0    X07C3,r1
  1075.     bsta,un    L0FB8
  1076.     lodr,r1    *X078F
  1077.     andi,r1    03FH
  1078.     bcfr,eq    L078E
  1079.     lodi,r0    020H
  1080.     lodi,r3    00DH
  1081.     bsta,un    L0186
  1082. L078E:
  1083.     loda,r1    X18ED
  1084.     andi,r1    00FH
  1085.     bcfa,eq    L0754
  1086.     loda,r0    X18F2
  1087.     coma,r0    X18F4
  1088.     bctr,gt    L07A2
  1089.     lodi,r2    001H
  1090.     bctr,un    L07A4
  1091. ;
  1092. L07A2:
  1093.     lodi,r2    0FFH
  1094. L07A4:
  1095.     lodr,r0    *X0797
  1096.     addz    r2
  1097.     strr,r0    *X0797
  1098.     loda,r0    X18F3
  1099.     coma,r0    X18F5
  1100.     bctr,gt    L07B5
  1101.     lodi,r2    001H
  1102.     bctr,un    L07B7
  1103. ;
  1104. L07B5:
  1105.     lodi,r2    0FFH
  1106. L07B7:
  1107.     lodr,r0    *X07AA
  1108.     addz    r2
  1109.     strr,r0    *X07AA
  1110.     bctr,un    L07D0
  1111. ;
  1112. X07BE:
  1113.     db    028H, 030H, 038H, 040H
  1114.     db    040H
  1115. X07C3:
  1116.     db    060H, 058H, 050H, 048H
  1117.     db    060H, 058H, 050H, 048H
  1118.     db    048H
  1119. X07CC:
  1120.     db    008H, 010H, 018H, 020H
  1121. ;
  1122. L07D0:
  1123.     lodr,r0    *X07E5
  1124.     strz    r1
  1125.     andi,r0    007H
  1126.     comi,r0    003H
  1127.     bcfr,eq    L07E4
  1128.     andi,r1    018H
  1129.     rrr,r1
  1130.     rrr,r1
  1131.     rrr,r1
  1132.     loda,r0    X07CC,r1
  1133.     bsta,un    L0FC4
  1134. L07E4:
  1135.     loda,r0    X18ED
  1136.     andi,r0    03FH
  1137.     comi,r0    001H
  1138.     bcta,eq    L089E
  1139.     loda,r1    X1AD9
  1140.     loda,r0    X1AE1,r1
  1141.     comi,r0    0FFH
  1142.     bcta,eq    L083E
  1143.     lodr,r0    *X07E5
  1144.     strz    r1
  1145.     andi,r0    007H
  1146.     comi,r0    003H
  1147.     bcfa,eq    L083E
  1148.     loda,r0    X18D4
  1149.     addi,r0    0FFH
  1150.     strr,r0    *X0804
  1151.     bcta,eq    L0841
  1152.     andi,r1    018H
  1153.     rrr,r1
  1154.     rrr,r1
  1155.     rrr,r1
  1156.     loda,r0    X1AEE
  1157.     comi,r0    004H
  1158.     bctr,eq    L083E
  1159.     rrl,r0
  1160.     rrl,r0
  1161.     iorz    r1
  1162.     loda,r0    X0E40,r0
  1163.     bsta,un    L0FC0
  1164.     loda,r1    X18ED
  1165.     andi,r1    007H
  1166.     comi,r1    003H
  1167.     bcfr,eq    L083E
  1168.     loda,r1    X1AEE
  1169.     loda,r0    X18F7
  1170.     adda,r0    X087E,r1
  1171.     strr,r0    *X082F
  1172.     loda,r0    X18F6
  1173.     adda,r0    X087F,r1
  1174.     strr,r0    *X0837
  1175. L083E:
  1176.     bcta,un    L098B
  1177. ;
  1178. L0841:
  1179.     lodr,r0    *X0837
  1180.     lodr,r1    *X082F
  1181.     bsta,un    L05D0
  1182.     comi,r1    0FFH
  1183.     bctr,eq    L085F
  1184.     lodi,r0    0BCH
  1185.     stra,r0    X1A00,r1
  1186.     lodz    r1
  1187.     loda,r1    X1AD9
  1188.     stra,r0    X1AE1,r1
  1189.     lodr,r0    *X0874
  1190.     iora,r0    X0FDF,r1
  1191.     bctr,un    L0873
  1192. ;
  1193. L085F:
  1194.     lodi,r0    0BCH
  1195.     stra,r0    X1800,r2
  1196.     lodz    r2
  1197.     loda,r1    X1AD9
  1198.     stra,r0    X1AE1,r1
  1199.     lodr,r2    *X0874
  1200.     loda,r0    X0FDF,r1
  1201.     eori,r0    0FFH
  1202.     andz    r2
  1203. L0873:
  1204.     stra,r0    X18D8
  1205.     lodi,r0    0FFH
  1206.     stra,r0    X18F7
  1207. L087B:
  1208.     bcta,un    L083E
  1209. ;
  1210. X087E:
  1211.     db    000H
  1212. X087F:
  1213.     db    001H, 000H, 0FFH, 000H
  1214. X0883:
  1215.     db    000H
  1216. X0884:
  1217.     db    008H, 000H, 0F8H, 000H
  1218.     db    000H
  1219. ;
  1220. L0889:
  1221.     bsta,un    L05B9
  1222.     stra,r0    X18F6
  1223.     strr,r1    *X0879
  1224.     bcta,un    L05D0
  1225. ;
  1226. L0894:
  1227.     loda,r1    X1AD9
  1228.     lodi,r0    0FFH
  1229.     stra,r0    X1AE1,r1
  1230.     bctr,un    L087B
  1231. ;
  1232. L089E:
  1233.     lodi,r0    008H
  1234.     stra,r0    X18D4
  1235.     lodr,r1    *X0895
  1236.     addi,r1    001H
  1237.     andi,r1    007H
  1238.     strr,r1    *X0895
  1239.     loda,r0    X1AE1,r1
  1240.     comi,r0    0FFH
  1241.     bctr,eq    L087B
  1242.     strz    r2
  1243.     loda,r0    X18D8
  1244.     anda,r0    X0FDF,r1
  1245.     bctr,eq    L08DB
  1246.     loda,r0    X1A00,r2
  1247.     comi,r0    0BCH
  1248. L08C0:
  1249.     bcfr,eq    L0894
  1250.     lodi,r0    0BDH
  1251.     stra,r0    X1A00,r2
  1252.     lodz    r2
  1253.     lodi,r2    078H
  1254.     strz    r1
  1255.     bsta,un    L0889
  1256.     loda,r0    X1A00,r1
  1257.     comi,r0    0BDH
  1258.     bcfr,eq    L08C0
  1259.     eorz    r0
  1260.     stra,r0    X1A00,r1
  1261.     bctr,un    L08FA
  1262. ;
  1263. L08DB:
  1264.     loda,r0    X1800,r2
  1265.     comi,r0    0BCH
  1266.     bcfr,eq    L08F3
  1267.     lodi,r0    0BDH
  1268.     stra,r0    X1800,r2
  1269.     lodz    r2
  1270.     lodi,r2    010H
  1271.     strz    r1
  1272.     bsta,un    L0889
  1273.     loda,r0    X1800,r2
  1274.     comi,r0    0BDH
  1275. L08F3:
  1276.     bcfa,eq    L0894
  1277.     eorz    r0
  1278.     stra,r0    X1800,r2
  1279. L08FA:
  1280.     loda,r1    X18ED
  1281.     andi,r1    080H
  1282.     bctr,eq    L0928
  1283.     loda,r0    X18F7
  1284.     suba,r0    X18F5
  1285.     bcfr,lt    L0916
  1286.     bctr,eq    L0920
  1287.     lodi,r0    001H
  1288.     bsta,un    L0945
  1289.     bctr,eq    L0928
  1290.     lodi,r0    001H
  1291.     bctr,un    L0922
  1292. ;
  1293. L0916:
  1294.     lodi,r0    003H
  1295.     bstr,un    L0945
  1296.     bctr,eq    L0928
  1297.     lodi,r0    003H
  1298.     bctr,un    L0922
  1299. ;
  1300. L0920:
  1301.     lodi,r0    004H
  1302. L0922:
  1303.     stra,r0    X1AEE
  1304.     bcta,un    L098B
  1305. ;
  1306. L0928:
  1307.     loda,r0    X18F6
  1308.     strz    r2
  1309.     coma,r0    X18F4
  1310.     bctr,gt    L093B
  1311.     bctr,eq    L0920
  1312.     eorz    r0
  1313.     bstr,un    L0945
  1314.     bctr,eq    L0920
  1315.     eorz    r0
  1316.     bctr,un    L0922
  1317. ;
  1318. L093B:
  1319.     lodi,r0    002H
  1320.     bstr,un    L0945
  1321.     bctr,eq    L0920
  1322.     lodi,r0    002H
  1323.     bctr,un    L0922
  1324. ;
  1325. L0945:
  1326.     strz    r3
  1327.     loda,r0    X18F7
  1328.     adda,r0    X0883,r3
  1329.     strz    r1
  1330.     comi,r0    0B0H
  1331.     bctr,gt    L0973
  1332.     loda,r0    X18F6
  1333.     adda,r0    X0884,r3
  1334.     bsta,un    L05D0
  1335.     comi,r0    0FFH
  1336.     bctr,eq    L0973
  1337.     comi,r1    0FFH
  1338.     bcfr,eq    L0967
  1339.     loda,r0    X1800,r2
  1340.     bctr,un    L096A
  1341. ;
  1342. L0967:
  1343.     loda,r0    X1A00,r1
  1344. L096A:
  1345.     comi,r0    03FH
  1346.     bctr,eq    L0973
  1347.     comi,r0    0BCH
  1348.     bctr,eq    L0973
  1349.     retc,un
  1350. ;
  1351. L0973:
  1352.     eorz    r0
  1353.     retc,un
  1354. ;
  1355. L0975:
  1356.     lodi,r1    004H
  1357. L0977:
  1358.     loda,r0    X17FF,r1
  1359.     addi,r0    001H
  1360.     stra,r0    X17FF,r1
  1361.     comi,r0    05AH
  1362.     bcfr,eq    L098A
  1363.     lodi,r0    050H
  1364.     stra,r0    X17FF,r1
  1365.     bdrr,r1    L0977
  1366. L098A:
  1367.     retc,un
  1368. ;
  1369. L098B:
  1370.     loda,r0    X1AF7
  1371.     bctr,eq    L0999
  1372.     addi,r0    0FFH
  1373.     strr,r0    *X098C
  1374.     bsta,un    L0182
  1375.     bstr,un    L0975
  1376. L0999:
  1377.     tpsu    080H
  1378.     bctr,eq    L0999
  1379.     loda,r1    X18ED
  1380.     addi,r1    001H
  1381.     andi,r1    003H
  1382.     rrl,r1
  1383.     loda,r0    X18E4,r1
  1384.     stra,r0    X18F0
  1385.     loda,r0    X18E5,r1
  1386.     stra,r0    X18F1
  1387.     rrr,r1
  1388.     lodz    r1
  1389.     strz    r2
  1390.     bcfr,eq    L09BB
  1391.     loda,r0    X18EC
  1392.     bcfr,eq    L09C1
  1393. L09BB:
  1394.     loda,r0    X09D0,r2
  1395.     bsta,un    L0FB4
  1396. L09C1:
  1397.     loda,r0    X09D4,r2
  1398.     loda,r1    X0DFB
  1399.     andi,r1    0C7H
  1400.     iorz    r1
  1401.     stra,r0    X1AF5
  1402.     bcta,un    L003A
  1403. ;
  1404. X09D0:
  1405.     db    088H, 068H, 070H, 078H
  1406. X09D4:
  1407.     db    030H, 000H, 010H, 008H
  1408. X09D8:
  1409.     db    000H, 015H, 028H, 039H
  1410.     db    04EH, 064H, 075H, 088H
  1411. X09E0:
  1412.     db    000H, 027H, 03BH, 04CH
  1413.     db    062H, 07FH, 099H, 0B0H
  1414. ;
  1415. L09E8:
  1416.     strz    r2
  1417.     strz    r3
  1418.     loda,r0    X09D8,r2
  1419.     strz    r1
  1420. L09EE:
  1421.     loda,r0    X0E4F,r1,+
  1422.     comi,r0    0FFH
  1423.     bctr,eq    L09FD
  1424.     strz    r2
  1425.     lodi,r0    03FH
  1426.     stra,r0    X1800,r2
  1427.     bctr,un    L09EE
  1428. ;
  1429. L09FD:
  1430.     loda,r0    X09E0,r3
  1431.     strz    r1
  1432. L0A01:
  1433.     loda,r0    X0EED,r1,+
  1434.     comi,r0    0FFH
  1435.     bctr,eq    L0A10
  1436.     strz    r3
  1437.     lodi,r0    03FH
  1438.     stra,r0    X1A00,r3
  1439.     bctr,un    L0A01
  1440. L0A10:
  1441.     retc,un
  1442. ;
  1443. L0A11:
  1444.     loda,r0    X1815
  1445.     stra,r0    X1AFE
  1446.     loda,r0    X181F
  1447.     stra,r0    X1AFF
  1448.     bstr,un    L0A38
  1449.     lodi,r1    030H
  1450. L0A21:
  1451.     loda,r0    X0DBF,r1
  1452.     stra,r0    X17FF,r1
  1453.     bdrr,r1    L0A21
  1454.     bstr,un    L0A45
  1455.     loda,r0    X1AFE
  1456.     stra,r0    X1815
  1457.     loda,r0    X1AFF
  1458.     stra,r0    X181F
  1459.     retc,un
  1460. ;
  1461. L0A38:
  1462.     lodi,r1    004H
  1463. L0A3A:
  1464.     loda,r0    X180A,r1
  1465.     stra,r0    X1AEF,r1
  1466.     bdrr,r1    L0A3A
  1467.     retc,un
  1468. ;
  1469. L0A43:
  1470.     bstr,un    L0A38
  1471. L0A45:
  1472.     lodi,r1    0A0H
  1473. L0A47:
  1474.     eorz    r0
  1475.     stra,r0    X182F,r1
  1476.     stra,r0    X19FF,r1
  1477.     stra,r0    X1A2F,r1
  1478.     bdrr,r1    L0A47
  1479.     bsta,un    L09E8
  1480.     loda,r0    X1AF8
  1481.     adda,r0    X18F9
  1482.     stra,r0    X1AF8
  1483.     andi,r0    007H
  1484.     bsta,un    L09E8
  1485.     lodi,r1    020H
  1486. L0A66:
  1487.     eorz    r0
  1488.     stra,r0    X1ACF,r1
  1489.     stra,r0    X18CF,r1
  1490.     bdrr,r1    L0A66
  1491. L0A6F:
  1492.     tpsu    080H
  1493.     bcfr,eq    L0A6F
  1494.     lodi,r1    080H
  1495. L0A75:
  1496.     loda,r0    X0D7F,r1
  1497.     stra,r0    X197F,r1
  1498.     bdrr,r1    L0A75
  1499.     bsta,un    L016F
  1500.     loda,r0    X0DF9
  1501.     stra,r0    X18E3
  1502.     eorz    r0
  1503.     stra,r0    X18FC
  1504.     lodi,r1    004H
  1505. L0A8C:
  1506.     loda,r0    X1AEF,r1
  1507.     stra,r0    X180A,r1
  1508.     bdrr,r1    L0A8C
  1509.     retc,un
  1510. ;
  1511. L0A95:
  1512.     tpsu    080H
  1513.     bcfr,eq    L0A95
  1514.     loda,r0    X1AF5
  1515.     stra,r0    X19FB
  1516.     lodi,r1    002H
  1517. L0AA1:
  1518.     loda,r0    X19FB,r1
  1519.     stra,r0    X1AF9,r1
  1520.     bdrr,r1    L0AA1
  1521.     loda,r1    X18ED
  1522.     addi,r1    001H
  1523.     strr,r1    *X0AAA
  1524.     andi,r1    001H
  1525.     loda,r0    X19FF
  1526.     stra,r0    X1AFC,r1
  1527.     loda,r0    X18E3
  1528.     andi,r0    0BFH
  1529.     iora,r0    X0FFB,r1
  1530.     stra,r0    X18E3
  1531.     stra,r0    X19F9
  1532.     loda,r3    X1AD8
  1533.     tmi,r3    001H
  1534.     bcfr,eq    L0ADC
  1535.     andi,r3    0FEH
  1536.     lodi,r1    008H
  1537.     loda,r2    X1AD0
  1538. L0AD4:
  1539.     loda,r0    X0D00,r2,-
  1540.     stra,r0    X197F,r1
  1541.     bdrr,r1    L0AD4
  1542. L0ADC:
  1543.     tmi,r3    002H
  1544.     bcfr,eq    L0AEF
  1545.     andi,r3    0FDH
  1546.     loda,r2    X1AD1
  1547.     lodi,r1    008H
  1548. L0AE7:
  1549.     loda,r0    X0D00,r2,-
  1550.     stra,r0    X1987,r1
  1551.     bdrr,r1    L0AE7
  1552. L0AEF:
  1553.     tmi,r3    008H
  1554.     bcfr,eq    L0B02
  1555.     andi,r3    0F7H
  1556.     loda,r2    X1AD3
  1557.     lodi,r1    008H
  1558. L0AFA:
  1559.     loda,r0    X0C40,r2,-
  1560.     stra,r0    X1997,r1
  1561.     bdrr,r1    L0AFA
  1562. L0B02:
  1563.     tmi,r3    010H
  1564.     bcfr,eq    L0B15
  1565.     andi,r3    0EFH
  1566.     loda,r2    X1AD4
  1567.     lodi,r1    008H
  1568. L0B0D:
  1569.     loda,r0    X0C40,r2,-
  1570.     stra,r0    X199F,r1
  1571.     bdrr,r1    L0B0D
  1572. L0B15:
  1573.     tmi,r3    020H
  1574.     bcfr,eq    L0B28
  1575.     andi,r3    0DFH
  1576.     loda,r2    X1AD5
  1577.     lodi,r1    008H
  1578. L0B20:
  1579.     loda,r0    X0D00,r2,-
  1580.     stra,r0    X19A7,r1
  1581.     bdrr,r1    L0B20
  1582. L0B28:
  1583.     tmi,r3    004H
  1584.     bcfr,eq    L0B3B
  1585.     andi,r3    0FBH
  1586.     loda,r2    X1AD2
  1587.     lodi,r1    008H
  1588. L0B33:
  1589.     loda,r0    X0B60,r2,-
  1590.     stra,r0    X198F,r1
  1591.     bdrr,r1    L0B33
  1592. L0B3B:
  1593.     stra,r3    X1AD8
  1594.     lodr,r0    *X0B4A
  1595.     bcfr,eq    L0B49
  1596.     lodr,r0    *X0B47
  1597.     addi,r0    001H
  1598.     stra,r0    X18F9
  1599. L0B49:
  1600.     loda,r0    X18ED
  1601.     andi,r0    003H
  1602.     bcfr,eq    L0B57
  1603.     lodr,r0    *X0B55
  1604.     addi,r0    001H
  1605.     stra,r0    X18D6
  1606. L0B57:
  1607.     retc,un
  1608. ;
  1609.     db    0FFH, 0FFH, 0FFH, 0FFH
  1610.     db    0FFH, 0FFH, 0FFH, 0FFH
  1611. X0B60:
  1612.     db    0A4H, 078H, 010H, 03CH
  1613.     db    022H, 01BH, 000H, 000H
  1614.     db    040H, 052H, 03CH, 008H
  1615.     db    01EH, 012H, 073H, 000H
  1616.     db    084H, 0A8H, 070H, 020H
  1617.     db    05CH, 066H, 010H, 018H
  1618.     db    010H, 07CH, 054H, 054H
  1619.     db    028H, 028H, 028H, 028H
  1620.     db    010H, 018H, 018H, 018H
  1621.     db    018H, 01EH, 01AH, 018H
  1622.     db    020H, 038H, 014H, 014H
  1623.     db    078H, 024H, 034H, 014H
  1624.     db    040H, 038H, 068H, 082H
  1625.     db    070H, 048H, 024H, 004H
  1626.     db    010H, 01CH, 074H, 010H
  1627.     db    0F0H, 088H, 044H, 002H
  1628.     db    010H, 01CH, 072H, 010H
  1629.     db    0F8H, 084H, 002H, 001H
  1630.     db    008H, 00EH, 01AH, 000H
  1631.     db    01CH, 024H, 043H, 0C0H
  1632.     db    010H, 018H, 034H, 014H
  1633.     db    028H, 02EH, 022H, 060H
  1634.     db    010H, 018H, 034H, 018H
  1635.     db    018H, 01CH, 014H, 034H
  1636.     db    008H, 018H, 018H, 018H
  1637.     db    018H, 078H, 050H, 018H
  1638.     db    004H, 01CH, 028H, 028H
  1639.     db    01CH, 024H, 02CH, 028H
  1640.     db    002H, 01CH, 026H, 02CH
  1641.     db    00EH, 012H, 024H, 020H
  1642.     db    008H, 038H, 02EH, 008H
  1643.     db    00FH, 011H, 022H, 040H
  1644.     db    008H, 038H, 04EH, 008H
  1645.     db    01FH, 021H, 040H, 080H
  1646.     db    010H, 070H, 058H, 010H
  1647.     db    038H, 024H, 0E2H, 003H
  1648.     db    008H, 018H, 02CH, 028H
  1649.     db    014H, 074H, 044H, 006H
  1650.     db    008H, 018H, 02CH, 018H
  1651.     db    018H, 038H, 028H, 006H
  1652.     db    010H, 07CH, 054H, 050H
  1653.     db    028H, 008H, 020H, 008H
  1654.     db    010H, 07CH, 054H, 014H
  1655.     db    028H, 020H, 008H, 020H
  1656.     db    010H, 07CH, 054H, 050H
  1657.     db    028H, 008H, 020H, 008H
  1658.     db    010H, 07CH, 054H, 014H
  1659.     db    028H, 020H, 008H, 020H
  1660.     db    00AH, 03EH, 028H, 020H
  1661.     db    016H, 022H, 026H, 034H
  1662.     db    008H, 037H, 02AH, 00CH
  1663.     db    034H, 022H, 032H, 016H
  1664.     db    048H, 03EH, 00AH, 01CH
  1665.     db    012H, 012H, 036H, 000H
  1666.     db    024H, 0F8H, 0A0H, 070H
  1667.     db    090H, 090H, 0D8H, 000H
  1668. X0C40:
  1669.     db    038H, 06CH, 0FEH, 0BAH
  1670.     db    0BAH, 0B8H, 068H, 00CH
  1671.     db    038H, 05CH, 0FEH, 0BAH
  1672.     db    0BAH, 03AH, 02CH, 060H
  1673.     db    038H, 06CH, 0FEH, 0BAH
  1674.     db    0BAH, 0B8H, 068H, 00CH
  1675.     db    038H, 074H, 0FEH, 0BAH
  1676.     db    0BAH, 03AH, 02CH, 060H
  1677.     db    038H, 06CH, 0FEH, 0BAH
  1678.     db    0BAH, 0BAH, 028H, 078H
  1679.     db    038H, 05CH, 0FEH, 0BAH
  1680.     db    0BAH, 0BAH, 030H, 070H
  1681.     db    038H, 03CH, 0FEH, 0BAH
  1682.     db    0BAH, 0BAH, 018H, 038H
  1683.     db    038H, 05CH, 0FEH, 0BAH
  1684.     db    0BAH, 0BAH, 028H, 078H
  1685.     db    038H, 06CH, 0FEH, 0BAH
  1686.     db    0BAH, 0BAH, 028H, 03CH
  1687.     db    038H, 074H, 0FEH, 0BAH
  1688.     db    0BAH, 0BAH, 018H, 01CH
  1689.     db    038H, 078H, 0FEH, 0BAH
  1690.     db    0BAH, 0BAH, 030H, 038H
  1691.     db    038H, 074H, 0FEH, 0BAH
  1692.     db    0BAH, 0BAH, 028H, 03CH
  1693.     db    038H, 07CH, 0FEH, 0BAH
  1694.     db    0BAH, 0B8H, 068H, 00CH
  1695.     db    038H, 07CH, 0FEH, 0BAH
  1696.     db    0BAH, 03AH, 02CH, 060H
  1697.     db    038H, 07CH, 0FEH, 0BAH
  1698.     db    0BAH, 0B8H, 068H, 00CH
  1699.     db    038H, 07CH, 0FEH, 0BAH
  1700.     db    0BAH, 03AH, 02CH, 060H
  1701.     db    038H, 06CH, 0FEH, 0BAH
  1702.     db    0BAH, 0BAH, 028H, 06CH
  1703.     db    028H, 06CH, 0FEH, 0BAH
  1704.     db    0BAH, 0BAH, 028H, 06CH
  1705.     db    038H, 06CH, 0FEH, 0BAH
  1706.     db    0BAH, 0BAH, 028H, 06CH
  1707.     db    038H, 06CH, 0FEH, 0BAH
  1708.     db    0BAH, 0BAH, 028H, 06CH
  1709.     db    038H, 06CH, 0FEH, 0BAH
  1710.     db    0BAH, 0BAH, 028H, 06CH
  1711.     db    038H, 06CH, 0FEH, 0BAH
  1712.     db    0BAH, 0BAH, 028H, 06CH
  1713.     db    008H, 06BH, 092H, 008H
  1714.     db    069H, 0C8H, 005H, 008H
  1715.     db    05DH, 075H, 0FFH, 077H
  1716.     db    090H, 0D4H, 0F0H, 0C0H
  1717. X0D00:
  1718.     db    000H, 000H, 014H, 02AH
  1719.     db    018H, 05AH, 000H, 000H
  1720.     db    0A9H, 028H, 0CBH, 0D6H
  1721.     db    018H, 052H, 098H, 0A1H
  1722.     db    0EFH, 083H, 0ABH, 0ABH
  1723.     db    0D7H, 0D7H, 0D7H, 0D7H
  1724.     db    0FFH, 0FFH, 0EFH, 083H
  1725.     db    0ABH, 0ABH, 0D7H, 0D7H
  1726.     db    000H, 000H, 000H, 018H
  1727.     db    018H, 000H, 000H, 000H
  1728.     db    000H, 000H, 018H, 03CH
  1729.     db    03CH, 018H, 000H, 000H
  1730.     db    000H, 018H, 03CH, 05AH
  1731.     db    07EH, 066H, 038H, 000H
  1732.     db    018H, 03CH, 05AH, 07EH
  1733.     db    066H, 042H, 03CH, 018H
  1734.     db    018H, 03CH, 05AH, 07EH
  1735.     db    066H, 042H, 03CH, 018H
  1736.     db    018H, 03CH, 05AH, 07EH
  1737.     db    07EH, 042H, 03CH, 018H
  1738.     db    018H, 03CH, 05AH, 07EH
  1739.     db    07EH, 042H, 07EH, 018H
  1740.     db    018H, 03CH, 05AH, 05AH
  1741.     db    07EH, 07EH, 03CH, 018H
  1742.     db    000H, 000H, 03CH, 03CH
  1743.     db    034H, 034H, 03CH, 03CH
  1744.     db    000H, 018H, 018H, 03CH
  1745.     db    03CH, 018H, 018H, 000H
  1746.     db    000H, 024H, 018H, 018H
  1747.     db    018H, 024H, 000H, 000H
  1748.     db    000H, 000H, 000H, 000H
  1749.     db    000H, 000H, 000H
  1750. X0D7F:
  1751.     db    000H, 000H, 030H, 078H
  1752.     db    078H, 078H, 078H, 030H
  1753.     db    000H, 000H, 000H, 000H
  1754.     db    000H, 000H, 000H, 000H
  1755.     db    000H, 010H, 07CH, 054H
  1756.     db    054H, 028H, 028H, 028H
  1757.     db    028H, 038H, 06CH, 0FEH
  1758.     db    0BAH, 0BAH, 028H, 028H
  1759.     db    06CH, 038H, 06CH, 0FEH
  1760.     db    0BAH, 0BAH, 028H, 028H
  1761.     db    06CH, 082H, 038H, 028H
  1762.     db    028H, 028H, 028H, 000H
  1763.     db    028H, 010H, 038H, 05CH
  1764.     db    0F6H, 0BEH, 038H, 038H
  1765.     db    038H, 0AAH, 055H, 0AAH
  1766.     db    055H, 0AAH, 055H, 0AAH
  1767. X0DBF:
  1768.     db    055H, 050H, 050H, 050H
  1769.     db    050H, 050H, 000H, 0BAH
  1770.     db    0BAH, 0BAH, 0BAH, 000H
  1771.     db    010H, 010H, 010H, 010H
  1772.     db    010H, 0A0H, 09AH, 0A6H
  1773.     db    09EH, 000H, 000H, 000H
  1774.     db    000H, 000H, 000H, 000H
  1775.     db    068H, 069H, 06DH, 000H
  1776.     db    000H, 03FH, 03FH, 03FH
  1777.     db    03FH, 03FH, 03FH, 03FH
  1778.     db    03FH, 03FH, 03FH, 03FH
  1779.     db    03FH, 03FH, 03FH, 03FH
  1780.     db    03FH, 000H, 000H, 000H
  1781.     db    000H, 000H, 000H, 000H
  1782.     db    000H, 04FH
  1783. X0DF9:
  1784.     db    0CFH, 0C6H
  1785. X0DFB:
  1786.     db    0F4H, 000H, 000H, 000H
  1787.     db    000H
  1788. X0E00:
  1789.     db    0A8H, 0A8H, 0B0H, 0B0H
  1790.     db    0A8H, 0A8H, 0B0H, 0B0H
  1791.     db    068H, 070H, 078H, 080H
  1792.     db    088H, 090H, 098H, 0A0H
  1793.     db    068H, 070H, 078H, 080H
  1794.     db    088H, 090H, 098H, 0A0H
  1795.     db    068H, 070H, 078H, 080H
  1796.     db    088H, 090H, 098H, 0A0H
  1797.     db    0B8H, 0B8H, 0C0H, 0C0H
  1798.     db    0B8H, 0B8H, 0C0H, 0C0H
  1799.     db    028H, 030H, 038H, 040H
  1800.     db    048H, 050H, 058H, 060H
  1801.     db    028H, 030H, 038H, 040H
  1802.     db    048H, 050H, 058H, 060H
  1803.     db    028H, 030H, 038H, 040H
  1804.     db    048H, 050H, 058H, 060H
  1805. X0E40:
  1806.     db    068H, 070H, 078H, 080H
  1807.     db    048H, 050H, 058H, 060H
  1808.     db    008H, 010H, 018H, 020H
  1809.     db    028H, 030H, 038H
  1810. X0E4F:
  1811.     db    040H, 030H, 040H, 050H
  1812.     db    060H, 070H, 080H, 090H
  1813.     db    0A0H, 0B0H, 0C0H, 06FH
  1814.     db    07FH, 08FH, 09FH, 0AFH
  1815.     db    0BFH, 0BFH, 03FH, 04FH
  1816.     db    05FH, 0FFH, 074H, 075H
  1817.     db    076H, 077H, 078H, 079H
  1818.     db    07AH, 084H, 094H, 0A4H
  1819.     db    0B4H, 0C4H, 0BBH, 0BCH
  1820.     db    0BDH, 0BEH, 0BEH, 0BEH
  1821.     db    0FFH, 0BFH, 035H, 045H
  1822.     db    055H, 065H, 075H, 085H
  1823.     db    095H, 0A5H, 06AH, 07AH
  1824.     db    08AH, 09AH, 0CAH, 0AAH
  1825.     db    0BAH, 0FFH, 035H, 045H
  1826.     db    055H, 065H, 075H, 085H
  1827.     db    095H, 0A5H, 0B5H, 0C5H
  1828.     db    06BH, 07BH, 08BH, 09BH
  1829.     db    0ABH, 0BBH, 0CBH, 068H
  1830.     db    069H, 06AH, 0FFH, 034H
  1831.     db    044H, 054H, 064H, 074H
  1832.     db    084H, 094H, 0A4H, 0B4H
  1833.     db    0C4H, 0BEH, 078H, 088H
  1834.     db    098H, 0A8H, 0B8H, 0C8H
  1835.     db    0BCH, 0BDH, 0BEH, 0CCH
  1836.     db    0FFH, 035H, 045H, 055H
  1837.     db    065H, 075H, 085H, 095H
  1838.     db    0A5H, 0B5H, 0C5H, 0B8H
  1839.     db    0BCH, 0BDH, 0BEH, 0C8H
  1840.     db    0C8H, 0FFH, 074H, 084H
  1841.     db    094H, 0A4H, 0B4H, 0B7H
  1842.     db    0C7H, 03AH, 04AH, 05AH
  1843.     db    06AH, 07AH, 08AH, 09AH
  1844.     db    0AAH, 0BAH, 0BDH, 0BEH
  1845.     db    0FFH, 0BBH, 0CBH, 07BH
  1846.     db    08BH, 09BH, 0ABH, 074H
  1847.     db    075H, 076H, 077H, 078H
  1848.     db    079H, 07AH, 0B1H, 0B2H
  1849.     db    0B3H, 0B4H, 0B5H, 0B6H
  1850.     db    0B7H, 0C7H
  1851. X0EED:
  1852.     db    0FFH, 0C0H, 0C1H, 0C2H
  1853.     db    0C3H, 0C4H, 0C5H, 0C6H
  1854.     db    0C7H, 0CAH, 0CBH, 0CCH
  1855.     db    0CDH, 0CEH, 0CFH, 0C8H
  1856.     db    0C9H, 000H, 010H, 020H
  1857.     db    030H, 040H, 050H, 060H
  1858.     db    070H, 080H, 090H, 0A0H
  1859.     db    0B0H, 0C0H, 09FH, 08FH
  1860.     db    07FH, 06FH, 05FH, 04FH
  1861.     db    03FH, 0AFH, 0BFH, 0FFH
  1862.     db    074H, 075H, 076H, 077H
  1863.     db    078H, 079H, 07AH, 03BH
  1864.     db    03CH, 03DH, 03EH, 004H
  1865.     db    014H, 024H, 034H, 044H
  1866.     db    054H, 064H, 074H, 0FFH
  1867.     db    045H, 055H, 065H, 075H
  1868.     db    085H, 095H, 0A5H, 0B5H
  1869.     db    00AH, 01AH, 02AH, 03AH
  1870.     db    04AH, 05AH, 06AH, 07AH
  1871.     db    0FFH, 035H, 045H, 055H
  1872.     db    065H, 075H, 085H, 095H
  1873.     db    0A5H, 0B5H, 00BH, 01BH
  1874.     db    02BH, 03BH, 04BH, 05BH
  1875.     db    06BH, 07BH, 08BH, 088H
  1876.     db    089H, 08AH, 0FFH, 004H
  1877.     db    014H, 024H, 034H, 044H
  1878.     db    054H, 064H, 074H, 008H
  1879.     db    018H, 028H, 038H, 048H
  1880.     db    058H, 068H, 078H, 088H
  1881.     db    098H, 0A8H, 0B8H, 00CH
  1882.     db    01CH, 02CH, 03CH, 04CH
  1883.     db    05CH, 06CH, 07CH, 0FFH
  1884.     db    005H, 015H, 025H, 035H
  1885.     db    045H, 055H, 065H, 075H
  1886.     db    085H, 086H, 087H, 088H
  1887.     db    089H, 08AH, 08BH, 038H
  1888.     db    039H, 03AH, 03BH, 03CH
  1889.     db    03DH, 03EH, 008H, 018H
  1890.     db    028H, 0FFH, 024H, 034H
  1891.     db    044H, 054H, 064H, 074H
  1892.     db    007H, 017H, 027H, 037H
  1893.     db    047H, 03AH, 04AH, 05AH
  1894.     db    06AH, 07AH, 08AH, 09AH
  1895.     db    0AAH, 03DH, 03EH, 0BAH
  1896.     db    0FFH, 00BH, 01BH, 03BH
  1897.     db    03CH, 03DH, 03EH, 02BH
  1898.     db    007H, 007H, 017H, 027H
  1899.     db    037H, 047H, 057H, 067H
  1900.     db    077H, 077H, 078H, 079H
  1901.     db    07AH, 07BH, 0FFH
  1902. ;
  1903. L0FB4:
  1904.     lodi,r1    001H
  1905.     bctr,un    L0FD2
  1906. ;
  1907. L0FB8:
  1908.     lodi,r1    002H
  1909.     bctr,un    L0FD2
  1910. ;
  1911. L0FBC:
  1912.     lodi,r1    003H
  1913.     bctr,un    L0FD2
  1914. ;
  1915. L0FC0:
  1916.     lodi,r1    004H
  1917.     bctr,un    L0FD2
  1918. ;
  1919. L0FC4:
  1920.     lodi,r1    005H
  1921.     bctr,un    L0FD2
  1922. ;
  1923.     db    005H, 006H, 01BH, 006H
  1924.     db    005H, 007H, 01BH, 002H
  1925.     db    005H, 008H
  1926. ;
  1927. L0FD2:
  1928.     stra,r0    X1ACF,r1
  1929.     loda,r0    X0FDE,r1
  1930.     iora,r0    X1AD8
  1931.     stra,r0    X1AD8
  1932. X0FDE:
  1933.     retc,un
  1934. ;
  1935. X0FDF:
  1936.     db    001H, 002H, 004H, 008H
  1937.     db    010H, 020H, 040H, 080H
  1938. ;
  1939. L0FE7:
  1940.     lodi,r1    009H
  1941. L0FE9:
  1942.     loda,r0    X0FF1,r1
  1943.     stra,r0    X1A02,r1
  1944.     bdrr,r1    L0FE9
  1945. X0FF1:
  1946.     retc,un
  1947. ;
  1948.     db    020H, 01AH, 026H, 01EH
  1949.     db    000H, 028H, 02FH, 01EH
  1950.     db    02BH
  1951. X0FFB:
  1952.     db    040H, 000H, 000H, 000H
  1953.     db    000H
  1954.